0 CLS"DIM M(100),N(100):P=1:S=1:LINE(160,0)-(160,200):LINE(0,100)-(320,100):FORX=-8TO8STEP.25:Y=X^2+3*X+2:N(P)=100+(-Y*20):M(P)=160+(X*20):P=P+1:NEXT:FORI=1TOP:IFN(I)>0ANDN(I)<100ANDM(I)>0ANDM(I)<320THEN1ELSES=S+1:NEXT
1 FORI=0TO320STEP20:LINE(I,99)-(I,101):NEXT:FORI=0TO200STEP20:LINE(159,I)-(161,I):NEXT:PSET(18,0)"y":PSET(38,11)"x":LOCATE0,0,0:PSET(M(S),N(S)):FORI=STOP-1:IFN(I)>0ANDN(I)<200ANDM(I)>0ANDM(I)<320THENLINE-(M(I),N(I)):NEXT